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VAX=11 CONVERT/RECLAIM 18-Sep-1986 23:5 VAX=11 Bliss-3 
VZr8e0=13R2 F3i7853s eA eteae ios 
UTITLE 'VAX=11 CONVERT/RECLAIM' 
MODULE RECLSDCL ( IDENT="V04=000", 
MAINESTART 


BEGIN 
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it COPYRIGHT | (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHES RESERVED. 


!® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND i ta 
t* ONLY IN ACCORDANCE WITH THE TERMS OF ve" Dace SE or WITH THE 
:* INCLUSION OF THE ABOVE C oy ceners NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
t® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
;* Ceeokatinn. " NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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] 
| 
3 1 } ‘hd | 
; : ! Facility: VAX=11 CONVERT/RECLAIM 
; 5 : : Environment: | 
3 § ! VAX/VMS Operating System | 
; § 1! Abstract: Main routines | 
; 40 1! 
; «41 1 ! Contents: 
3 § ,! main 
3; 6 1! 
i § a ke: 
; 46 5 1! 
; & § 1 ! Author: Keith B Thompson 
3 $8 ' Peter Lieberwirth Creation date: August-1981 
: 50 $ ji | 
;  § 50 1 | Modified by: | 
; g 25 1! v03-003 KB8T0373 Keith B. Thompson 20-0 t-1982 | 
3 4 53 1! Remove the flops ref. stuff and use the new flags 
: 5 2¢ : : parameters on the call interface | 
: § 2$ 1 i v03-002 KBT0043 Keith Thompson 3-Apr-1982 
; 38 3 : Change the refrence to conv$ab_flags to use the vector stuff | 
; 60 35 1/ v03-001 K8T0020 Keith Thompson 23-Mar-1982 | 
: e : : : Correct the display of CPU time | 
; 85 0062 1 iseee | 
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' Start the timer 


= 
DCL executable inage 


Calling Sequence: 
STATISTICS 


LENGTH 
TOTAL_ 


SUB; 


LOCAL 
LIBSINIT_TIMER( TIMER_BLK ); 


NE START 


Functional Description: 
BUILTIN 


Input Parameters: 
Implicit Inputs: 
Output Parameters: 
Implicit Outputs: 
Routine Value 
Routines Called: 
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: Get the switch from DCL 


STATISTICS = CLISPRESENT( DESCRIPTOR( "STATISTICS ) ); 

Get the input file name 

CLISGET_VALUE( DESCRIPTOR( ‘FILE_NAME’ ),FILE_NAME ); 

: Reclaim the file 

RET_ON_ERROR( CONVSRECLAIM ( FILE_NAME,STATISTICS_BLOCK,FLAGS ) ); 
: Output some stats if wanted 

IF _ .STATISTICS 

HEN 


BEGIN 
ZERO_Q : VECTOR »LONG ] INITIAL( 0,0 ), !' Used for 
TEMP_TIME : VECTOR LONG J, ' conversion 
MUL 100K : VECTOR »LONG J INITIAL( 100000,0 );! of times 


: Get Preformance Stats 


LIBSSTAT_TIMER( ONE, ELP_TIME 
LIBSSTAT-TIMER( TWO,  TEMP_TIME, 


: Convert to delta time 

SUBM( 2,ELP_TIME,ZERO_Q,ELP_TIME ); 

Convert internal times to ASCII 

SASCTIM( TIMLEN = 0, 
TIMBUF = ELP 
TIMADR = ELP~T 
CVTFLG = 0 ): 


The CPU time is given in 10msec ticks so we need to convert it to 
system delta time 


TIMER_BLK ); 
TIMER_BLK ); 


t 
i 
i 
: Convert to 10nsec ticks 

MULQ( TEMP_TIME,MUL100K,CPU_TIME ); 
Convert to delta time 

SUBM( 2,CPU_TIME,ZERO_Q,CPU_TIME ); 
: Conver to ascii 

SASCTIM( TIMLEN 


:C 


v4.0 
CONV.S 
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H Loop to output the first 5 Lines of the display 
pace I FROM 0 TO 4 BY 1 
BEGIN 
: FAO the line 
SFAO( .STATS C .1 J,LENGTH,FAO_DESC,.STATISTICS_BLOCK C .1 J ); 
PUT_DESC C DSCSW_LENGTH J = .LENGTH; 
H Output the Line 
LIBSPUT_OUTPUT( PUT_DESC ) 
END; 
: Elasped Time and CPU Time 
SFAO( .STATS C 5 J LENety. FAO_DESC,ELP_DESC,CPU_DESC ); 
PUT DESC [ ENG .CENGTH; 


on 
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we 
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Dscsiy LENGT Hd): 
LIBSPUT “ourPUure PUT_DESC ); 
END; 
RETURN SS$_NORMAL 
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TITLE Rery Sott VAX=11 CONVERT 
\V04-000\ 


“IDENT 

.PSECT SPLITS,NOWRT,NOEXE,2 
61 7% 53 20 4D 49 41 4C 43 45 52 20 2F 21 20 00000 P.AAC: .ASCII \ !/ RECLAIM Statistics\ : 
$3 63 28 $2 $8 83 $2 90000 ' toe = : 

I6 .BLKB 

00900000" 1¢ ne ADDRESS. B.AAC 3 
53 73 7% 65 63 75 42 20 6C 61 7% 6F PLANE: “ASCII \fotet Buckets Scenned: !8UL\ : 
3 8 bf 56 $3 $8 Sh 28 Sk 8 SS Bt Te St a3 ¢ otal Buckets Scanne . 
-BLKB : 


~ LONG 3 
“ADDRESS P.AAE 
“ASCII \Data Buckets Reclaimed: 'BUL\ 
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& 
61 6C $? 
-BLKB 


. LONG , 
of “ADDRESS P.AAG 
Y P.AAL: ASCII \Index Buckets Reclaimed: '8UL\ 


7 1F 
5 8H 2s 8 hk ko OS et ee Sk gs 


Hi teettoe ie tetie 13-ep-1984 43:78:58 | Wah anShAS eRe ceGue She arecuoce.0320%%" «as 
.BLKB 1 
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so 


RHEL EB 
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Sus 
NLO 
omun 


sean Sameer: sere, aeeay 


45 4D 41 


00000000 00000000 00000000 00000000 00000004 


Ibodeoctoge 25:56: 


B8 P.AAJ: 


ny 


3 


X-11 
SKSV! Mena 


3 


00 90018 P.AAH: .LONG 31 
a4 SADDRESS P. 
F P.AAK: .ASCI 
3 69 A 
aateth i 
* 0008 ADDRESS P AAK 
33 eb P.AAM: .ASCII \Elapsed Time: 
D D 
ft of sASCII \AS\ 
EA ‘BLKB 2 
0 2A EC P.AAL: .LONG 42 
* OO0F -ADDRESS P.AAM 
0 9 * OOOF4 P.AAA: . ADDRESS P.AAB, P.AAD 
4 10C P.AAO: ASCII \STATISTICS\ 
116 -BLKB : 
990 000A, 118 P.AAN: <LONG 10 
000000 11¢ “ADDRESS P.AAO 
120 P.AAQ: ASCII \FILE_NAME\ 
4) ‘BLKB ; 
(0000009 0012C P.AAP: <LONG 
0000000° 001 -ADDRESS P.AAQ 
.PSECT S$OWNS,NOEXE,2 
00# 00000 FILE NAME: Ve - 
02 20088 “BYTE 2 
0008 STATISTICS” BLOCK: eee 
00000001 9001 nee, 15-5. . 
0020 FAO_BUFFER: ee 
0084 O00A4 FAO_DESC: 
o0A? “BYTE 
00009 -ADDRESS FAO_BUFFER 
Bac PUT_DESC: wen 
ae ‘Byte 
ir} _Ainness FAO_BUFFER 
TIMER_B 
atl KB 


00088 ELP TIME: 
000¢0 CPULTIME: 
000C8 ELP_TIM_BUF : 
00008 CPU_TIM_BUF : 


00000010 O00E8 ELP_DESC: 


16 
16 


Bt iss 


AAI 
\Total Buckets Reclaimed: 


3 
Tensce0 


'8UL\ 


'AS! CPU Time: 


0-742 > 
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, P.AAF, P.AAH, P.AAJ, P.AAL : 


ERE 
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RT 


000000006 
000000006 


000000006 


000000006 


48 


04 


I$ }e0- 


«LONG 


88000010 8006 CPU eaciomess Be, TIM_BUF 


woven HE TL 


»LONG 
. LONG 
TEMP TIME: KB 
00000000 000186A0 00110 MUL 100K: - LONG 
STATS= 
-EXTRN 
~EXTRN 
~EXTRN 
-EXTRN 
«PSECT 
OOFC 00000 START: .WORD 
7 94444494 00 9€ 0000 MOVAB 
g 00 $4443 83 9E 000 MOVAB 
0000000G 00 9E Bate MOVAB 
4 000000006 00 9€ wit MOVAB 
32 0000 ff 9 if pitty 
E 4 § 00 SUBL 
FC AZ. 9F 000 8 PUSHAB 
00 01 FB 000 CALLS 
0000° CF 9F 38 0 PUSHAB 
98 1 fe 0 CALLS 
5 9 3 00 OVL 
FF48 6C¢ F oS 5 PUSHAB 
0000" gS 9F 0004 SHAB 
00 FB st CALLS 
FF64 C5 OF 4D SHAB 
re CS OF 4 1 PUSHAB 
FF4 CS OF 5 SHAB 
00 2 fe D059 CALLS 
01 f +94 BLBS 
4 6 RET 
03 5 . 64 18: BLBS 
OOA BRW 
FC UA F 2s: PUSHAB 
5 D PUSHL 
40 A F SH 
64 03 FB CALLS 
F A F PUSHAB 
5 & F PUSHAB 
4 A F PUSHAB 
64 03 F CALL 
A3 65 C¢ SUBL 
2 4C AS D MOVL 
04 AS D SBWC 
& ; Dd MOVL 
§ 0 CLRL 
53 0D PUSHL 


L 
eADDRESS CPU_TIM_BUF 
ONG 


f00000, 0 


AAA 
einen CLISGET VALUE 
CONVSRECL 
AT CHAER LIBSPUT OUTPUT 


SCODES ,NOWRT 2 


ate Oe GotrUT Rr oR7 


SSASCTIM, RS 
BSSTAT_TIMER, R4 
P_TIME, R3 


——<-< 


R_BLK 
TBSINIT. TIMER 


ISPRESENT 
ATISTICS 
NAME 


Ome ee 
fe. s Be 
ms 
rDaon- 
=r Ue 


UV "DZBV2Z—- Bane on 
m 
YW AM 


#2 CLISGET_VALUE 
STATISTICS_BLOCK 


#3, CONVSRECLAIM 
STATUS, 1$ 


pIAtistics. 2s 
i BLK 


iy Liesstar. TIMER 


TAT_TIMER 
ZERO_Q, ELP_TIME 


eT imens 


198¢ 23: 72: 33 bis KSV MeMAS mAST TeRcceoNv. SREIRECLOCL.B32~ 7 


; 0520 


; 0574 
; 0578 


0582 


0586 


0590 


0601 


0602 


0606 


0613 
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30 Ad OF PUSHAB ELP_DESC : 

7E D4 CLRL. 0 = (SP) ; 

65 04 FB CALLS #4, SYSSASCTIM : 
A3 OF PUSHAB CPU TIME + 0620 

RBS es a : 

0009v CF 03 F A7 CALLS #3, MUL F 
08 A3 48 «OA 08 as C A SUBL cpu TIME, ZERO_Q, CPU_TIME + 0624 

2 4C AS OD B MOVL ERO_0+4. R : 

¢ a3 OD B SBWC 486s CPU_TIME+4, RO ; 

oc A 3 Do BB MOVL RO, CPU_TIME+4 ; 
F CLRL 0s = ¢ §P) + 0631 

08 AS 9F 000C1 PUSHAB CPU_TIME ; 

AS 9F 000C4 PUSHAB CPUTDESC 3 

7E D4 000C7 CLRL = ( SP) : 

65 04 FB 0 (9 CALLS #4, SYSSASCTIM : 
D4 000CC CLRL Od + 0635 
FF50 C34 BD cE 3$ PUSHL STATISTICS_BLOCKL1) + 0641 

AS 9F 000D PUS FAO_DESC ; 

a OF 06 PUSHAB LENGTH 3 

0000'CF42 DD 0000 SHL STATSLI) : 

04 FB OF CALLS #4, SYSSFAO : 
Fo OA 6 2 E MOVW LENGTH, PUT_DESC + 0643 
F4 OAS OOF OES PUSHAB BUT _DESC + 0647 

67 1 Fe E CALLS #1, LIB$PUT_OUTPUT : 

DF 2 4 F EB AOBLEQ #4. I, 3$ : 
8 A3 9F OOODEF PUSHAB CPU_DESC : 0653 

A 3 OOF PUSHAB ELP~DESC : 

C AS 9F OOF PUSHAB FAO~DESC F 

C AE 9F OO0F PUSHAB LENGTH : 

0000" CF oD O00FB PUSHL STATS+20 : 

66 05 FB OFF CALLS #5, SYSSFAO : 
Fo OA 6 8 10 MOVW LENGTH, PUT_DESC > 0654 
F4 «OAS OOF 001 PUSHAB z + 0655 

67 1 FB 001 CALLS #1, L1BSPUT_OUTPUT : 
0 1 pO 0010C 4s: MOVL 86 #1, R : 0659 
04 0010F RET > 0661 


3; Routine Size: 272 bytes, Routine Base: S$CODE$S + 0000 


vt 


vor-000, Ruka) OMVERT VEleectaes Hea 


ZSBTTL "MULQ’ 
ROUTINE MULG ¢ MUL: E R 5: LONG : 
E R TONG ) : NOVALUE = 


PROD : 


N=11 Blise=32 V4.0- 
SkSVNSAASTERSCCONV.SREIRECLOCL.B32r1°" (5) 
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'+¢ 
i Functional Description: 


Multiplies two quadwords. This routine was converted from the example 
of the EMUL instruction in the VAX Architecture Handbook 


| cating Sequence: 
MULQ( mull,mul2,prod ) 
| Input Parameters: 


mul = quadword multi 
mul2 = quadword multi 


| ImpLiese aes 


AVLSSSLEREAVAS Sao 


{ Output Parameters: 


BIER 


prod = quadword product (note: output cannot be same as either input) 
| inptieit utputes 
t Routine Value: 

none 
i Routines Called: 

none 


i Side ettectes 


RIP DPIMOPIMPDPIPIPIMINIMNINIAN AY a ad a ad a a a a a a i a a a a a ee a a a dd dd od dd 


BEGIN 
BUILTIN 
EMU 


We 


ND 
muc2s = muce EO) : SLeNeD; 


LOCAL 
ZERO : INITIAL( 0), 
TEMP; 


RVUUNNMINS S33 S38 sssesscs 
ONAUEWN POOCDNOUR WN —ODONOUNE WN 
NNNNNNNNN SSS 


CONOUS WIN OO 


ee te ee 


: Multiply low half 


3; Routine Size: 53 bytes, Routine Base: SCODE$ + 0110 


; $2¢ pres 1 
3 335 745 0 END ELUDOM 
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RECLSDCL VAX=11 CONVERT 18.06 -1984 23:56: VAX-11 Bliss-32 V4.0-742 P 2) 
vos MULQ 1228 08= 198 e 93:76:33 DISKSVMSMASTER:CCONV.SRCIRECLOCL.B32:1 (3 
; 9 719 EMUL( .MUL1,.MUL2,ZERO,.PROD ); | : 
: 331 734 ! High half = AChigh] * BClow] + AClow) * BLhigh! ; 
3 § g § TEMP = ( MULT C1) * .muL200)) + ¢ .muL1COJ* .muL2e i); : 
3 > 4 i : If AClLow]<0 then compensate of unsigned bias of 2*#32 ; 
: 337 7 iF .MUL1S : 
; 338 7 8 Hien on eS ; 
3 3 07 4 TEMP = .TEMP + .MUL2 C07; ; 
3 o oF 1 If BLlow]<0 then compensate of unsigned bias of 2**32 ; 
; re 07 : if .MUL2S LSS 0 ; 
: 344 0734 : 
3 “# of 5 TEMP = .TEMP + .MUL1 C 0 7; : 
; rf 4 0737 } Combine with high half of AClow] * BLlow] z 
; 39 0739 PROD C 1] = .PROD C1) + .TEMP; 3 
: 351 0741 3 RETURN ; 
; 32 O74¢ 3 
; 5 0743 1 END; ‘ 
001¢ 00000 MULQ: .WORD Save R2,R3,R4 : 0663 ; 
53 04 Ac dO 90002 MOVL MULT, RS + 0710 ; 
52 08 AC DO 00006 MOVL  MUL2, R2 : 0711 : 
51 D4 OOO0A CLRL ZERO : ; 
50 oc A b0 000 MOVL PROD, RO : 0719 : 
60 51 62 63 7A 0015 EMUL. (R3), (R2), ZERO, (RO) 3 : 
54 04 A 6 C3 001 MULL3  (R2) 4cR3S, R4 + 0723 ; 
51 $3 06 A2 € 9 1A MULLS 4 (R25, (R3). R1 ; : 
1 54 ¢ 1F ADDL2 R4, TEMP : : 
6 DS 00022 TSTL (RS) : 0727 : 
18 00024 BGEQ )6=s«a1$ : : 
51 62 C¢ 99 $ ADDL2 (2), TEMP ; 07 9 ; 
62 D 1$: TSTL (R2) ; 0733 : 
1 9 8 BGEQ es : : 
oo 2 i 28: ADDLS. TERPS 4tRO) : 0139 
be $0 RET : : 0743 ; 
| e 
| 
i 
| 


12 
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PSECT SUMMARY 
Name Bytes Attributes 


SOWNS NOVEC, WRT, RD MORNE NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SPLITS NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SCODES NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

$ Library Statistics 

; sasesese SyGhol§ eoccsece Pages Processing 

: File Total Loaded Percent Mapped Time 

; _$255$DUA28:CSYSLIBILIB.L32;1 18619 9 0 1000 00:01.8 

; COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:RECLOCL/OBJ=OBJ$:RECLDCL MSRC$:RECLDCL/UPDATE=(ENHS$:RECLDCL) 

3; Size: 325 code + 588 data bytes 

3; Run Time: 00: 

3; Elapsed Time: 00:38.6 

: Lines/CPU Min: 409 


: Lexemes/CPU-Min: 21195 
Y Used: 125 pages 
3; Compilation Complete 
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